home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / MENUSKEL.PRG < prev    next >
Text File  |  1986-09-29  |  2KB  |  71 lines
  1. * MENUSKEL
  2. * SET UP MENU
  3. * OPERATOR ACTION WILL BE ALPHA CHARACTER
  4. * OUTER DO ALLOWS RETURN TO MENU FROM LOWER LEVEL MENUS
  5. SET HEADING OFF
  6. SET SAFETY OFF
  7. SET STATUS OFF
  8. DO WHILE (1=1)
  9. SET TALK OFF
  10. SET BELL OFF
  11. CLEAR ALL
  12. STORE " " TO OPINPUT
  13. *
  14. *===============================START MODS: 1================================*
  15. * SET LEFT AND TOP MARGINS FOR MENU
  16. STORE 20 TO LEFTMARG
  17. STORE  2 TO TOPMARG
  18. *==================================END MODS==================================*
  19. *
  20. *
  21. *===============================START MODS: 2================================*
  22. * SET HIGHEST OPTION LETTER, THEN PROVIDE HEADING AND OPTION LABELS
  23. DO WHILE OPINPUT<"A".OR.OPINPUT>"E"
  24.    CLEAR
  25.    @ TOPMARG,LEFTMARG+3 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  26.    @ TOPMARG+2,LEFTMARG+9 SAY ">> <<"
  27.    @ TOPMARG+4,LEFTMARG SAY "A."
  28.    @ TOPMARG+5,LEFTMARG SAY "B."
  29.    @ TOPMARG+6,LEFTMARG SAY "C."
  30.    @ TOPMARG+7,LEFTMARG SAY "D."
  31.    @ TOPMARG+8,LEFTMARG SAY "E."
  32.    @ TOPMARG+17,LEFTMARG+3 SAY "Press Letter Matching Desired Option ";
  33.      GET OPINPUT
  34. *=================================END MODS===================================*
  35. *
  36.    READ
  37.    STORE UPPER(OPINPUT) TO OPINPUT
  38. ENDDO
  39. *
  40. *==============================START MODS: 3=================================*
  41. * PROVIDE DO FILE NAME FOR EACH CASE REPRESENTING ONE OF THE MENU OPTIONS
  42. DO CASE
  43.    CASE OPINPUT="A"
  44.       DO 
  45.    CASE OPINPUT="B"
  46.       DO 
  47.    CASE OPINPUT="C"
  48.       DO 
  49.    CASE OPINPUT="D"
  50.       DO 
  51.    CASE OPINPUT="E"
  52.       DO 
  53. *=================================END MODS===================================*
  54. *
  55.    OTHERWISE
  56.       CANCEL
  57. ENDCASE
  58. * REDISPLAY MENU
  59. ENDDO
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.